home *** CD-ROM | disk | FTP | other *** search
/ Best of Shareware / Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso / mac / DOS / UTILITY / MXMNU238 / CUSTOM.INC next >
Text File  |  1992-03-13  |  2KB  |  108 lines
  1. Comment
  2. ========================================================================
  3.  
  4. MarxMenu supports several "Look and Feel" options. You can choose from:
  5.  
  6. NOVELL.INC
  7. BLOCK.INC
  8. GRID.INC
  9.  
  10. By including different files MarxMenu compiles the same menu with
  11. completely different looks.
  12.  
  13. Colors are set by editing these include files.
  14.  
  15. ========================================================================
  16. EndComment
  17.  
  18. ;----- Select include file.
  19.  
  20. Include 'NOVELL.INC'
  21. ;Include 'BLOCK.INC'
  22. ;Include 'GRID.INC'
  23.  
  24. ;----- Turn this on if you like the Greek Column Look.
  25.  
  26. Greek On
  27.  
  28. OnScreenOnly ;limits choices to those on the screen only.
  29. AllowEsc
  30. AllowAbort Off
  31. UseArrows
  32. LookSetup
  33.  
  34. ;================< FEATURE CONTROL AREA >================
  35.  
  36. ;----- WORM.INC loads the example custom screen blanker program
  37.  
  38.   Include 'WORM.INC'
  39.  
  40. ;----- Set up the blank screen message if you want one.
  41.  
  42.   BlankMessage = ''
  43.  
  44. ;----- Change BlankTime to 0 if you do not want to blank the screen.
  45.  
  46.   BlankTime = 5
  47.  
  48. ;----- Change LogoffTime to number of minutes if you want timed Logoff.
  49.  
  50.   LogoffTime = 0
  51.  
  52. ;----- Use Novell Password or LockWord to unlock the screen blanker.
  53.  
  54. if NetworkVersion
  55.    if NovConnection <> 0
  56.       UseNovPassword Off    ;change to On to activate this feature
  57.    else
  58.       LockWord = ''         ;place lockword here for non novell menus
  59.    endif
  60. endif
  61.  
  62. ;----- This makes the menu come back to the same menu level.
  63.  
  64.   SavePosition On
  65.  
  66. ;----- Control Explode effects.
  67.  
  68.   Explode On
  69.  
  70.  
  71. ;========================================================
  72.  
  73. ;----- Support routines for conditional menus
  74.  
  75. Var
  76.   IndexString
  77.   MyGroups
  78.  
  79. ;----- Adds a choice to list
  80.  
  81. Procedure AddChoice (Prompt,TaskNum)
  82.    IndexString[CurrentWindow + 1] = Left(IndexString[CurrentWindow + 1],NumberOfElements(Choices)) + Char(TaskNum + 64)
  83.    AppendArray(Choices,Prompt)
  84. EndProc
  85.  
  86. ;----- Compares TaskNum to Choice
  87.  
  88. Procedure Task (TaskNum)
  89.    if Mid(IndexString[CurrentWindow],Ord(LastKey) - 64,1) = Char(TaskNum + 64)
  90.       Return LastKey
  91.    else
  92.       Return ""
  93.    endif
  94. EndProc
  95.  
  96. ;----- Code for Group Conditionals
  97.  
  98. if NovConnection > 0
  99.    NovReadGroups(NovLoginName,MyGroups)    ;Read Groups user is in.
  100.    SortArray(MyGroups)
  101. endif
  102.  
  103. ;----- Returns True if in list
  104.  
  105. Procedure InGroup (Group)
  106.    Return PosInSortedList(UpperCase(Group),MyGroups) > 0
  107. EndProc
  108.